﻿Public Class ResearchList
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Function doRating(ByVal rating As Integer)
        Dim returnValue As String
        returnValue = ""
        For i = 1 To rating
            returnValue = returnValue + "^"
        Next
        Return returnValue
    End Function
End Class